#Figure 3: First Dimension Over Time
rm(list = ls())
points <- read.csv("all_colonies_1d_ideal_points.csv")

dev.off()
plot(points$Year, points$d1, type="n", ylab="Characteristic Score", xlab="Year", xlim = c(1600, 1850), axes = F, 
     main = "Constitution Characteristic Scores Across The Colonial Period")
text(points$Year[points$Charter == 0], points$d1[points$Charter == 0], labels=points$Label[points$Charter == 0], cex=0.6)
text(points$Year[points$Charter == 1], points$d1[points$Charter == 1], labels=points$Label[points$Charter == 1], cex=0.6, font=4)
#abline(v = 1776, lty = 2)
#abline(v = 1788, lty = 3)
axis(1, at = seq(1600, 1850, 50), cex.axis = .7)
axis(2, at = seq(-.5, .2, .1), las = 2)
axis(1, at = c(1776, 1789), las = 1, cex.axis = .7)
